home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aad.d64 / proc.payment < prev    next >
Text File  |  2007-02-28  |  1KB  |  29 lines
  1. 0010 //═ONTHLY PAYMENT COMPUTATION, BASED ON PRINCIPAL OF LOAN,
  2. 0020 //ANNUAL PERCENTAGE RATE OF LOAN, AND
  3. 0030 //NUMBER OF MONTHS OVER WHICH LOAN WILL BE PAID BACK.
  4. 0040 //
  5. 0050 ╨╥╧├ PAYMENT(PRINCIPAL,RATE,MONTHS) //"╨ARAMETERS" IN PARENTHESES.
  6. 0060   ╔╞ RATE>1 ╘╚┼╬ // ╬OTE MULTIPLE CONDITIONS IN "IF" TEST.
  7. 0070     RATE:=RATE/1200
  8. 0080   ┼╠╙┼ // ╔F THE "IF" ABOVE IS NOT TRUE THEN...
  9. 0090     RATE:=RATE/12
  10. 0100   ┼╬─╔╞ 
  11. 0110   NUMERATOR:=PRINCIPAL*RATE*(1+RATE)^MONTHS
  12. 0120   DENOMINATOR:=(1+RATE)^MONTHS-1
  13. 0130   MONTHLY'PAYMENT:=NUMERATOR/DENOMINATOR
  14. 0140   ╨╥╔╬╘ 
  15. 0150   ╨╥╔╬╘ 
  16. 0160   ╨╥╔╬╘ ╒╙╔╬╟ "═ONTHLY PAYMENT: $#######.##": MONTHLY'PAYMENT
  17. 0170   SUMMARIZE // ├ALLING A PROCEDURE FROM WITHIN A PROCEDURE.
  18. 0180 ┼╬─╨╥╧├ PAYMENT
  19. 0190 //
  20. 0200 ╨╥╧├ SUMMARIZE 
  21. 0210   PAYBACK:=MONTHS*MONTHLY'PAYMENT
  22. 0220   INTEREST:=PAYBACK-PRINCIPAL
  23. 0230   ╨╥╔╬╘ 
  24. 0240   ╨╥╔╬╘ ╒╙╔╬╟ "┴MOUNT BORROWED: $#######.##": PRINCIPAL
  25. 0250   ╨╥╔╬╘ ╒╙╔╬╟ "╘OTAL INTEREST:  $#######.##": INTEREST
  26. 0260   ╨╥╔╬╘ "                  ----------"
  27. 0270   ╨╥╔╬╘ ╒╙╔╬╟ "╘OTAL PAYBACK:   $#######.##": PAYBACK
  28. 0280 ┼╬─╨╥╧├ SUMMARIZE
  29.